home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / demo 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  398b  |  17 lines
  1. 10 \h,0:\e,0:i=10:j=10:poke 53280,0
  2. 20 \c,0,16*j:poke 53280,i
  3. 30 forx=5to165stepi:\k,159,99,x,165-x,1:nextx
  4. 40 forx=5to165stepi:\k,159,99,x,165-x,0:nextx
  5. 50 i=int(rnd(ti)*20)+1:j=int(rnd(ti)*14)+1
  6. 55 \c,0,16*j:poke 53280,i
  7. 60 forx=0to149 step10+i
  8. 70 fory=189 to 0 step-10-i
  9. 80 \l,x,y,310-x,190-y,1
  10. 90 nexty,x
  11. 92 fory=189 to 0 step-10-i
  12. 94 forx=0to149 step10+i
  13. 96 \l,x,y,310-x,190-y,0
  14. 98 nextx,y
  15. 99 i=int(rnd(ti)*20)+1:j=int(rnd(ti)*14)+1
  16. 100 \e,0:goto 20
  17.